home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / GigaMem.adf / Install-GigaMem < prev    next >
Text File  |  1992-07-14  |  7KB  |  344 lines
  1. ; $VER: GigaMem_Install 2.0 (11-04-1992)
  2. ; GigaMem Hard Drive Installation Script
  3.  
  4. (complete 0)
  5.  
  6. ;=============================================================================
  7. ; English strings
  8.  
  9. (set #ask-GigaMem-dir
  10.     (cat
  11.         "In which disk or drawer should a drawer \"GigaMem\" "
  12.         "be created where all files will be copied?"
  13.     )
  14. )
  15.  
  16. (set #ask-GigaMem-dir-help
  17.     (cat
  18.         "Here you specify, where you want to install GigaMem "
  19.         "and all support files. A drawer \"GigaMem\" will "
  20.         "be created, so you select \"DH0:\" to install GigaMem "
  21.         "in a drawer \"DH0:GigaMem\".\n\n"
  22.     )
  23. )
  24.  
  25. (set #prompt-GigaMem
  26.     (cat
  27.         "This will create a new drawer called \"GigaMem\" and "
  28.         "will copy the following files and drawers."
  29.     )
  30. )
  31.  
  32. (set #prompt-GigaMem-help
  33.     (cat
  34.         "GigaMem - is the program file.\n"
  35.         "GigaMem-Startup.info - startup icon for WBStartup.\n"
  36.         "GigaMem.Prefs - is the default program database.\n"
  37.         "GigaMemPrefs - is the preferences program file.\n"
  38.         "LastMinute.doc - contains last changes to the manual.\n\n"
  39.     )
  40. )
  41.  
  42. (set #bool-Startup
  43.     (cat
  44.         "\nInstall GigaMem to start automatically after reboot?"
  45.         "\n\nThis will install GigaMem-Startup in SYS:WBStartup."
  46.     )
  47. )
  48.  
  49. (set #prompt-Startup
  50.     (cat
  51.         "\nInstalling files needed for automatical startup..."
  52.     )
  53. )
  54.  
  55. (set #bool-Startup-help
  56.     (cat
  57.         "\nThis will install GigaMem-Startup in SYS:WBStartup."
  58.     )
  59. )
  60.  
  61. (set #prompt-Programmer
  62.     (cat
  63.         "Do you want to copy the files for Programmers too?\n"
  64.         "This will create a drawer \"Programmer\" and copy "
  65.         "all files needed to build an application using "
  66.         "VMem.Library."
  67.     )
  68. )
  69.  
  70. (set #prompt-Programmer-help
  71.     (cat
  72.         "\nThe directoy Programmer includes all files needed "
  73.         "to use VMem.Library for own programming projects.\n\n"
  74.     )
  75. )
  76.  
  77. (set #ask-Library-dir
  78.     (cat
  79.         "In which disk or drawer should\n"
  80.         "VMem.Library be installed?\n"
  81.         "Select Help for information on the library."
  82.     )
  83. )
  84.  
  85. (set #ask-Library-dir-help
  86.     (cat
  87.         "The VMem.Library allows applications "
  88.         "to use Virtual Memory most efficiently. "
  89.         "This ensures maximum compatibility and speed.\n\n"
  90.         "The library must be located in one of the LIBS: "
  91.         "directories so the Operating System can find it.\n\n"
  92.     )
  93. )
  94.  
  95. (set #prompt-Library
  96.     (cat "This will install\n\"VMem.Library\"\nin your System.")
  97. )
  98.  
  99. ;=============================================================================
  100. ; German strings
  101.  
  102. (if (= @language "deutsch")
  103. (
  104.  
  105. (set #ask-GigaMem-dir
  106.     (cat
  107.         "Auf welchem Gerät, in welcher Schublade soll "
  108.         "eine neue Schublade GigaMem erstellt werden, in "
  109.         "die alle Programmdateien installiert werden?"
  110.     )
  111. )
  112.  
  113. (set #ask-GigaMem-dir-help
  114.     (cat
  115.         "Sie geben hier den Ort an, wo \"GigaMem\" und all "
  116.         "dazugehörenden Dateien installiert werden. "
  117.         "Eine Schublade \"GigaMem\" wird eingerichtet, "
  118.         "Sie brauchen also nur \"DH0:\" anzugeben um "
  119.         "GigaMem in einer Schublade \"DH0:GigaMem\" zu installieren.\n\n"
  120.     )
  121. )
  122.  
  123. (set #prompt-GigaMem
  124.     (cat
  125.         "Eine Schublade \"GigaMem\" wird eingerichtet und "
  126.         "folgende Dateien werden in diese Schublade kopiert."
  127.     )
  128. )
  129.  
  130. (set #prompt-GigaMem-help
  131.     (cat
  132.         "GigaMem - Das Programm.\n"
  133.         "GigaMem-Startup.info - Startpiktogramm für WBStartup.\n"
  134.         "GigaMem.Prefs - Mitgelieferte Programmdatenbank.\n"
  135.         "GigaMemPrefs - Das Einstellungsprogramm.\n"
  136.         "LastMinute.doc - Letzte Änderungen zum Handbuch.\n\n"
  137.     )
  138. )
  139.  
  140. (set #bool-Startup
  141.     (cat
  142.         "\nGigaMem bei einem Neustart automatisch starten?"
  143.         "\n\nEs wird GigaMem-Startup in der Schublade SYS:WBStartup "
  144.         "installiert."
  145.     )
  146. )
  147.  
  148. (set #prompt-Startup
  149.     (cat
  150.         "\nKopiere Dateien, die für den automatischen "
  151.         "Start benötigt werden..."
  152.     )
  153. )
  154.  
  155. (set #bool-Startup-help
  156.     (cat
  157.         "\nEs wird GigaMem-Startup in der Schublade SYS:WBStartup "
  158.         "installiert."
  159.     )
  160. )
  161.  
  162. (set #prompt-Programmer
  163.     (cat
  164.         "Wollen Sie die Dateien für Programmierer auch "
  165.         "installieren?\n"
  166.         "Eine Schublade \"Programmer\" wird eingerichtet "
  167.         "und alle Dateien, die zum Benutzen der VMem.Library "
  168.         "nötig sind, werden kopiert."
  169.     )
  170. )
  171.  
  172. (set #prompt-Programmer-help
  173.     (cat
  174.         "Die Schublade \"Programmer\" enthält alle Dateien, "
  175.         "die zum Benutzen der VMem.Library in eigenen Projekten "
  176.         "nötig sind.\n\n"
  177.     )
  178. )
  179.  
  180. (set #ask-Library-dir
  181.     (cat
  182.         "Auf welchem Gerät, in welcher Schublade soll "
  183.         "die VMem.Library installiert werden?\n"
  184.         "Wählen Sie Hilfe für weitere Informationen."
  185.     )
  186. )
  187.  
  188. (set #ask-Library-dir-help
  189.     (cat
  190.         "Die VMem.Library erlaubt Programmen, virtuellen "
  191.         "Speicher für eigene Zwecke optimal zu benutzen. "
  192.         "Dies garantiert maximale Kompatibilät und "
  193.         "Geschwindigkeit.\n\n"
  194.         "Die VMem.Library muss in einer der LIBS: Schubladen "
  195.         "sein, damit das Betriebsystem sie finden kann.\n\n"
  196.     )
  197. )
  198.  
  199. (set #prompt-Library
  200.     (cat "Installieren der \"VMem.Library\"\nim System.")
  201. )
  202.  
  203. ))
  204.  
  205. ;=============================================================================
  206. ; Main 'Program'
  207.  
  208. ; ask for destination drawer or partition for GigaMem etc.
  209. (set GigaMem_dest
  210.     (tackon
  211.         (askdir
  212.             (prompt #ask-GigaMem-dir)
  213.             (help
  214.                 #ask-GigaMem-dir-help
  215.                 @askdir-help
  216.             )
  217.             (default @default-dest)
  218.         )
  219.         "GigaMem"
  220.     )
  221. )
  222.  
  223. ; at this point we have a valid destination, so we tell installer where
  224. ; the application will end up so the exit page will be correct -- also,
  225. ; the installation log file (if any) will be copied to the destination
  226. (set @default-dest GigaMem_dest)
  227.  
  228. ;copy all the program files from source to dest
  229. (copyfiles
  230.     (prompt #prompt-GigaMem)
  231.     (source "GigaMem")
  232.     (dest GigaMem_dest)
  233.     (pattern "(GigaMem#?|LastMinute#?)")
  234.     (infos)
  235.     (confirm)
  236.     (help
  237.         #prompt-GigaMem-help
  238.         @copyfiles-help
  239.     )
  240. )
  241.  
  242. ; Fix default tool to GigaMem's path
  243. (tooltype
  244.     (dest (tackon GigaMem_dest "GigaMem-Startup"))
  245.     (setdefaulttool (tackon GigaMem_dest "GigaMem"))
  246. )
  247.  
  248. (complete 25)
  249.  
  250. ;install GigaMem-Startup in SYS:WBStartup
  251. (if (= (exists "SYS:WBStartup") 2)    ; Drawer SYS:WBStartup exists?
  252. (if (= 1
  253.     (askbool
  254.         (prompt #bool-Startup)
  255.         (help #bool-Startup-help)
  256.     ))
  257. (
  258.  
  259. (copyfiles
  260.     (prompt #prompt-Startup)
  261.     (source "GigaMem")
  262.     (dest "SYS:WBStartup")
  263.     (pattern "GigaMem-Startup.info")
  264.     (infos)
  265.     (confirm)
  266.     (help
  267.         #bool-Startup-help
  268.         @copyfiles-help
  269.     )
  270. )
  271.  
  272. ; Fix default tool to GigaMem's path
  273. (tooltype
  274.     (dest "SYS:WBStartup/GigaMem-Startup")
  275.     (noposition)
  276.     (setdefaulttool (tackon GigaMem_dest "GigaMem"))
  277. )
  278.  
  279. )))    ; User wants to install for startup?
  280.  
  281. (complete 50)
  282.  
  283. ;copy all the programer's files from source to dest
  284. (if (<> (exists "GigaMem/Programmer") 0)    ; Programmer DevKit?
  285. (copyfiles
  286.     (prompt #prompt-Programmer)
  287.     (source "GigaMem")
  288.     (dest GigaMem_dest)
  289.     (pattern "Programmer#?")
  290.     (infos)
  291.     (confirm)
  292.     (help
  293.         #prompt-Programmer-help
  294.         @copyfiles-help
  295.     )
  296. ))
  297. (complete 75)
  298.  
  299. ; Test for existance of LIBS-USER/
  300. (set VMemLib_defdest "SYS:Libs-User")    ; Default directory Libs-User
  301. (if (<> (exists VMemLib_defdest) 2)        ; Relog Installation?
  302.     (set VMemLib_defdest "LIBS:")        ; No -> LIBS:
  303. )
  304.  
  305. ; Test for existance of USER:LIBS
  306. (if (<> (getassign "USER") "")                ; Valid assignment USER:? (avoid req)
  307.     (if (= (exists "USER:LIBS") 2)            ; Newer Relog Installation?
  308.         (set VMemLib_defdest "USER:LIBS")    ; Yes -> Use USER:LIBS
  309.     )
  310. )
  311.  
  312.  
  313.  
  314. ; Get destination for vmem.library
  315. (set VMemLib_dest
  316.     (askdir
  317.         (prompt #ask-Library-dir)
  318.         (help
  319.             #ask-Library-dir-help
  320.             @askdir-help
  321.         )
  322.         (default VMemLib_defdest)
  323.     )
  324. )
  325.  
  326. ; copy vmem.library
  327. (copylib
  328.     (source "Libs/vmem.library")
  329.     (prompt #prompt-Library)
  330.     (confirm)
  331.     (dest VMemLib_dest)
  332.     (help
  333.         #ask-Library-dir-help
  334.         @copylib-help
  335.     )
  336. )
  337.  
  338. (complete 100)
  339.  
  340. ;cleanup
  341.  
  342. ;done, so get out
  343. (exit)
  344.